Rem Travel Center Implementation
Rem ------------------------------------------------------------------
Rem Copyright (C) 2012 TEAM
Rem ------------------------------------------------------------------

Rem  Implementation for a Travel Center Terminal. Basic functions for customer
Rem  management and BasicCard customization.

Option Explicit
Option Base Explicit


Rem ------------------------------------------------------------------
Rem INCLUDES
Rem ------------------------------------------------------------------

#Include ../PassengerCard/PassengerCard.DEF

#Include ../Includes/BasicCardUtilities.DEF
#Include ../Includes/BasicCardCommErrors.DEF
#Include ../Includes/BasicCardColours.DEF
#Include ../Includes/CommonTypes.DEF
#Include ../Includes/CommonTerminalFunctions.DEF
#Include ../Includes/CommonFunctions.DEF

#Include ../Includes/BasicCardMisc.DEF

#Include TRAVELCENTER.DEF
#Include TRAVELCENTER.KEY


Rem ------------------------------------------------------------------
Rem MAIN-LOOP
Rem
Rem DESCRIPTION:
Rem   The main loop runs till the user presses the command to exit the
Rem   the terminal application. Mainly it calls the functions for the
Rem   user commands.
Rem ------------------------------------------------------------------

Private id$

Do
    Cls
    id$ = ShowMenuAndReturnChosenId()
    Select Case id$
    Case "1"
        Call CreateNewCustomer()
        Exit Case
    Case "2"
        Call SaveDataToCard()
        Exit Case
    Case "3"
        Call ReadCustomerFromCard()
        Exit Case
    Case "4"
        Call ResetCustomerCard()
        Exit Case
    Case "5"
        Exit
    End Select
Loop
